home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / TECHNICA / AUTOCAD / 3078B.ZIP / PGRUN991.ZIP / BASEPLT.LSP < prev    next >
Lisp/Scheme  |  1991-05-20  |  5KB  |  19 lines
  1.  
  2. ; *******  ParaDraft Application  ********
  3. ; Parametric Geomtry Program generated by PgPg! 
  4. ; Authored by   : User
  5. ; Application name : A baseplate with four holes
  6. ; Dated         : Monday , 20-5-1991
  7. ; Started at    :  --  11:46:02
  8. ; Finished at   :  --  11:46:57
  9. ; ****************************************
  10. (princ "\nParaDraft application generated on Monday , 20-5-1991 with Shareware Trial Version 1.0S")
  11. (mode 0)(command "VSLIDE"(strcat *pgpg-dir* *pg-name*)) (setq dia5 nil dia6 nil dia7 nil dia8 nil dia9 nil rad10 nil rad11 nil rad12 nil rad13 nil L1 nil L2 nil L3 nil L4 nil  )  (take-value 'dia5 "dia5" 57.09785527) (take-value 'dia6 "dia6" 20.03951431) (take-value 'dia7 "dia7" 20.1598754) (take-value 'dia8 "dia8" 20.14587909) (take-value 'dia9 "dia9" 20.0466436) (take-value 'rad10 "rad10" 27.78420851) (take-value 'rad11 "rad11" 27.78101861) (take-value 'rad12 "rad12" 27.79046338) (take-value 'rad13 "rad13" 27.79004992) (take-value 'L1 "L1" 272.2) (take-value 'L2 "L2" 216.6) (take-value 'L3 "L3" 149.6) (take-value 'L4 "L4" 94.0) (command "REDRAW") (initget 1) (setq refpt (getpoint "\nInsertion point :"))
  12. (setq refangle (getval "\nInsertion angle:" 0.0))
  13.  (princ "Computing points ..please wait") 
  14. (setq *en*  (init refpt))(setq *dim-layer* "dim")(setq *cen-layer* "cen")
  15. (setq err 0.0)
  16. (command "COLOR""BYLAYER") (command "DIM1""DIMASZ" 0.01 ) (command "DIM1""DIMTXT" 0.01 ) (setvar "CMDECHO" 0)(MAKE_LAYER "CEN" 2)(setq RAD5(/ DIA5 2.0)) (setq RAD6(/ DIA6 2.0)) (setq RAD7(/ DIA7 2.0)) (setq RAD8(/ DIA8 2.0)) (setq RAD9(/ DIA9 2.0)) (setq L14 (/ L3 2.0)  ) (setq L15 L14 ) (setq L16 (/ L4 2.0)  ) (setq L17 L16 ) (setq L18 (/ L1 2.0)  ) (setq L19 L18 ) (setq L20 (/ L2 2.0)  ) (setq L21 L20 )  (setq pt1(delta refpt   0.0  0.0  )) (setq pt42(delta refpt   ( + (x-of pt1) rad5)   (y-of pt1)  )) (setq pt43(polar    pt1    1.57079633   L15  )) (setq pt44(polar    pt1    0.0   L18  )) (setq pt45(polar    pt1    1.57079633   ( - L14 )  )) (setq pt46(polar    pt1    0.0   ( - L19 )  )) (setq pt10(delta refpt   ( + (x-of pt1) ( - L21 ))   ( + (y-of pt1) L17)   )) (setq pt11(delta refpt   ( + (x-of pt1) L20)   ( + (y-of pt1) L17)   )) (setq pt12(delta refpt   ( + (x-of pt1) L20)   ( + (y-of pt1) ( - L16 ))   )) (setq pt13(delta refpt   ( + (x-of pt1) ( - L21 ))   ( + (y-of pt1) ( - L16 ))   )) (setq pt47(polar    pt1    0.0   ( - L21 )  )) (setq pt48(polar    pt1    1.57079633   L17  )) (setq pt34(polar    pt1    0.0   L20  )) (setq pt36(polar    pt1    1.57079633   ( - L16 )  )) (setq pt38(delta refpt   ( + (x-of pt1) ( - L19 ))   ( + (y-of pt1) L15)   )) (setq pt39(delta refpt   ( + (x-of pt1) L18)   ( + (y-of pt1) L15)   )) (setq pt40(delta refpt   ( + (x-of pt1) L18)   ( + (y-of pt1) ( - L14 ))   )) (setq pt41(delta refpt   ( + (x-of pt1) ( - L19 ))   ( + (y-of pt1) ( - L14 ))   )) (princ "Computed points\n")(gc) (make_layer "0" 1) (make_layer "cen" 1) (make_layer "dim" 1) (make_layer "0" 1) (command "LINE" pt38 pt39 "" ) (setq ent1 (entlast))(command "LINE" pt39 pt40 "" ) (setq ent2 (entlast))(command "LINE" pt40 pt41 "" ) (setq ent3 (entlast))(command "LINE" pt41 pt38 "" ) (setq ent4 (entlast))(command "CIRCLE" pt1  rad5) (setq ent5 (entlast))(command "CIRCLE" pt10  rad6) (setq ent6 (entlast))(command "CIRCLE" pt11  rad9) (setq ent7 (entlast))(command "CIRCLE" pt13  rad7) (setq ent8 (entlast))(command "CIRCLE" pt12  rad8) (setq ent9 (entlast)) (command "FILLET""R"rad10 "FILLET"( ssadd  ent1 ( ssadd  ent4 ( ssadd))) )  (setq ent10 (entlast)) (setq ent11 (entlast))  (command "FILLET""R"rad13 "FILLET"( ssadd  ent2 ( ssadd  ent1 ( ssadd))) )  (setq ent12 (entlast)) (setq ent13 (entlast))  (command "FILLET""R"rad12 "FILLET"( ssadd  ent3 ( ssadd  ent2 ( ssadd))) )  (setq ent14 (entlast)) (setq ent15 (entlast))  (command "FILLET""R"rad11 "FILLET"( ssadd  ent4 ( ssadd  ent3 ( ssadd))) )  (setq ent16 (entlast)) (setq ent17 (entlast))  (draw-cline  pt34 526.46353 0.0  )  (draw-cline  pt36 282.15337 1.57079633  ) (make-cline  pt1  rad5) (make-cline  pt10  rad6) (make-cline  pt11  rad9) (make-cline  pt13  rad7) (make-cline  pt12  rad8) 
  17.  
  18.  (rotate-it refpt refangle) (princ "\n Drawing created by a ParaDraft application")(mode 1) ( setq refpt nil   pt1 nil   pt2 nil   pt3 nil   pt4 nil   pt5 nil   pt6 nil   pt8 nil   pt10 nil   pt11 nil   pt12 nil   pt13 nil   pt14 nil   pt15 nil   pt16 nil   pt17 nil   pt18 nil   pt19 nil   pt20 nil   pt21 nil   pt22 nil   pt23 nil   pt24 nil   pt25 nil   pt26 nil   pt27 nil   pt28 nil   pt29 nil   pt30 nil   pt31 nil   pt32 nil   pt33 nil   pt34 nil   pt35 nil   pt36 nil   pt37 nil   pt38 nil   pt39 nil   pt40 nil   pt41 nil   pt42 nil   pt43 nil   pt44 nil   pt45 nil   pt46 nil   pt47 nil   pt48 nil   L1 nil   L2 nil   L3 nil   L4 nil   L14 nil   L15 nil   L16 nil   L17 nil   L18 nil   L19 nil   L20 nil   L21 nil   )  (gc) (princ) ; Program generated at  :  --  11:47:00
  19.